home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 August: Tool Chest / Dev.CD Aug 95 TC / Dev.CD Aug 95 TC.toast / Tool Chest / Interfaces / UniversalInterfaces 2.1B1 / AIncludes / IntlResources.a < prev    next >
Encoding:
Text File  |  1995-04-18  |  15.1 KB  |  329 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        IntlResources.a
  3. ;
  4. ;    Contains:    International Resource definitions.
  5. ;
  6. ;    Version:    Technology:    System 7.5
  7. ;                Package:    Universal Interfaces 2.1ß1 in “MPW Prerelease” on ETO #17
  8. ;
  9. ;    Copyright:    © 1984-1995 by Apple Computer, Inc.
  10. ;                All rights reserved.
  11. ;
  12. ;    Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13. ;                stack.  Include the file and version information (from above)
  14. ;                in the problem description and send to:
  15. ;                    Internet:    apple.bugs@applelink.apple.com
  16. ;                    AppleLink:    APPLE.BUGS
  17. ;
  18. ;
  19.  
  20.     IF &TYPE('__INTLRESOURCES__') = 'UNDEFINED' THEN
  21. __INTLRESOURCES__ SET 1
  22.  
  23.  
  24.     IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
  25.     include 'Types.a'
  26.     ENDIF
  27. ;        include 'ConditionalMacros.a'                                ;
  28.  
  29. ; Bits in the itlcFlags byte 
  30. itlcShowIcon                    EQU        7                    ;Show icon even if only one script
  31. itlcDualCaret                    EQU        6                    ;Use dual caret for mixed direction text
  32. ; Bits in the itlcSysFlags word 
  33. itlcSysDirection                EQU        15                    ;System direction - left to right/right to left
  34. ; the NumberParts indices 
  35. tokLeftQuote                    EQU        1
  36. tokRightQuote                    EQU        2
  37. tokLeadPlacer                    EQU        3
  38. tokLeader                        EQU        4
  39. tokNonLeader                    EQU        5
  40. tokZeroLead                        EQU        6
  41. tokPercent                        EQU        7
  42. tokPlusSign                        EQU        8
  43. tokMinusSign                    EQU        9
  44. tokThousands                    EQU        10
  45. tokSeparator                    EQU        12                    ;11 is a reserved field
  46. tokEscape                        EQU        13
  47. tokDecPoint                        EQU        14
  48. tokEPlus                        EQU        15
  49. tokEMinus                        EQU        16
  50. tokMaxSymbols                    EQU        31
  51. curNumberPartsVersion            EQU        1                    ;current version of NumberParts record
  52.  
  53. currSymLead                        EQU        16
  54. currNegSym                        EQU        32
  55. currTrailingZ                    EQU        64
  56. currLeadingZ                    EQU        128
  57.  
  58. mdy                                EQU        0
  59. dmy                                EQU        1
  60. ymd                                EQU        2
  61. myd                                EQU        3
  62. dym                                EQU        4
  63. ydm                                EQU        5
  64.  
  65. ; typedef SInt8             DateOrders
  66.  
  67. timeCycle24                        EQU        0                    ;time sequence 0:00 - 23:59
  68. timeCycleZero                    EQU        1                    ;time sequence 0:00-11:59, 0:00 - 11:59
  69. timeCycle12                        EQU        255                    ;time sequence 12:00 - 11:59, 12:00 - 11:59
  70. zeroCycle                        EQU        1                    ;old name for timeCycleZero
  71. longDay                            EQU        0                    ;day of the month
  72. longWeek                        EQU        1                    ;day of the week
  73. longMonth                        EQU        2                    ;month of the year
  74. longYear                        EQU        3                    ;year
  75. supDay                            EQU        1                    ;suppress day of month
  76. supWeek                            EQU        2                    ;suppress day of week
  77. supMonth                        EQU        4                    ;suppress month
  78. supYear                            EQU        8                    ;suppress year
  79. dayLdingZ                        EQU        32
  80. mntLdingZ                        EQU        64
  81. century                            EQU        128
  82. secLeadingZ                        EQU        32
  83. minLeadingZ                        EQU        64
  84. hrLeadingZ                        EQU        128
  85.  
  86. ; move OffsetTable to QuickdrawText 
  87. Intl0Rec                 RECORD    0
  88. decimalPt                 ds.b   1        ; offset: $0 (0)        ;decimal point character
  89. thousSep                 ds.b   1        ; offset: $1 (1)        ;thousands separator character
  90. listSep                     ds.b   1        ; offset: $2 (2)        ;list separator character
  91. currSym1                 ds.b   1        ; offset: $3 (3)        ;currency symbol
  92. currSym2                 ds.b   1        ; offset: $4 (4)
  93. currSym3                 ds.b   1        ; offset: $5 (5)
  94. currFmt                     ds.b   1        ; offset: $6 (6)        ;currency format flags
  95. dateOrder                 ds.b   1        ; offset: $7 (7)        ;order of short date elements: mdy, dmy, etc.
  96. shrtDateFmt                 ds.b   1        ; offset: $8 (8)        ;format flags for each short date element
  97. dateSep                     ds.b   1        ; offset: $9 (9)        ;date separator character
  98. timeCycle                 ds.b   1        ; offset: $A (10)        ;specifies time cycle: 0..23, 1..12, or 0..11
  99. timeFmt                     ds.b   1        ; offset: $B (11)        ;format flags for each time element
  100. mornStr                     ds.b   4        ; offset: $C (12)        ;trailing string for AM if 12-hour cycle
  101. eveStr                     ds.b   4        ; offset: $10 (16)        ;trailing string for PM if 12-hour cycle
  102. timeSep                     ds.b   1        ; offset: $14 (20)        ;time separator character
  103. time1Suff                 ds.b   1        ; offset: $15 (21)        ;trailing string for AM if 24-hour cycle
  104. time2Suff                 ds.b   1        ; offset: $16 (22)
  105. time3Suff                 ds.b   1        ; offset: $17 (23)
  106. time4Suff                 ds.b   1        ; offset: $18 (24)
  107. time5Suff                 ds.b   1        ; offset: $19 (25)        ;trailing string for PM if 24-hour cycle
  108. time6Suff                 ds.b   1        ; offset: $1A (26)
  109. time7Suff                 ds.b   1        ; offset: $1B (27)
  110. time8Suff                 ds.b   1        ; offset: $1C (28)
  111. metricSys                 ds.b   1        ; offset: $1D (29)        ;255 if metric, 0 if inches etc.
  112. intl0Vers                 ds.w   1        ; offset: $1E (30)        ;region code (hi byte) and version (lo byte)
  113. sizeof                     EQU *            ; size:   $20 (32)
  114.                         ENDR
  115.  
  116. ; typedef struct Intl0Rec     Intl0Rec
  117. ; typedef Intl0Rec             *Intl0Ptr, **Intl0Hndl
  118. Intl1Rec                 RECORD    0
  119. days                     ds.l   28        ; offset: $0 (0)        ;day names
  120. months                     ds.l   48        ; offset: $70 (112)        ;month names
  121. suppressDay                 ds.b   1        ; offset: $130 (304)    ;255 for no day, or flags to suppress any element
  122. lngDateFmt                 ds.b   1        ; offset: $131 (305)    ;order of long date elements
  123. dayLeading0                 ds.b   1        ; offset: $132 (306)    ;255 for leading 0 in day number
  124. abbrLen                     ds.b   1        ; offset: $133 (307)    ;length for abbreviating names
  125. st0                         ds.b   4        ; offset: $134 (308)    ;separator strings for long date format
  126. st1                         ds.b   4        ; offset: $138 (312)
  127. st2                         ds.b   4        ; offset: $13C (316)
  128. st3                         ds.b   4        ; offset: $140 (320)
  129. st4                         ds.b   4        ; offset: $144 (324)
  130. intl1Vers                 ds.w   1        ; offset: $148 (328)    ;region code (hi byte) and version (lo byte)
  131. localRtn                 ds.w   1        ; offset: $14A (330)    ;now a flag for opt extension
  132. sizeof                     EQU *            ; size:   $14C (332)
  133.                         ENDR
  134.  
  135. ; typedef struct Intl1Rec     Intl1Rec
  136. ; typedef Intl1Rec             *Intl1Ptr, **Intl1Hndl
  137. ;fields for optional itl1 extension
  138. Itl1ExtRec                 RECORD    0
  139. base                     ds     Intl1Rec ; offset: $0 (0)        ;un-extended Intl1Rec
  140. version                     ds.w   1        ; offset: $14C (332)
  141. format                     ds.w   1        ; offset: $14E (334)
  142. calendarCode             ds.w   1        ; offset: $150 (336)    ;calendar code for this itl1 resource
  143. extraDaysTableOffset     ds.l   1        ; offset: $152 (338)    ;offset in itl1 to extra days table
  144. extraDaysTableLength     ds.l   1        ; offset: $156 (342)    ;length of extra days table
  145. extraMonthsTableOffset     ds.l   1        ; offset: $15A (346)    ;offset in itl1 to extra months table
  146. extraMonthsTableLength     ds.l   1        ; offset: $15E (350)    ;length of extra months table
  147. abbrevDaysTableOffset     ds.l   1        ; offset: $162 (354)    ;offset in itl1 to abbrev days table
  148. abbrevDaysTableLength     ds.l   1        ; offset: $166 (358)    ;length of abbrev days table
  149. abbrevMonthsTableOffset     ds.l   1        ; offset: $16A (362)    ;offset in itl1 to abbrev months table
  150. abbrevMonthsTableLength     ds.l   1        ; offset: $16E (366)    ;length of abbrev months table
  151. extraSepsTableOffset     ds.l   1        ; offset: $172 (370)    ;offset in itl1 to extra seps table
  152. extraSepsTableLength     ds.l   1        ; offset: $176 (374)    ;length of extra seps table
  153. tables                     ds.w   1        ; offset: $17A (378)    ;now a flag for opt extension
  154. sizeof                     EQU *            ; size:   $17C (380)
  155.                         ENDR
  156.  
  157. ; typedef struct Itl1ExtRec  Itl1ExtRec
  158. UntokenTable             RECORD    0
  159. len                         ds.w   1        ; offset: $0 (0)
  160. lastToken                 ds.w   1        ; offset: $2 (2)
  161. index                     ds.w   256        ; offset: $4 (4)        ;index table; last = lastToken
  162. sizeof                     EQU *            ; size:   $204 (516)
  163.                         ENDR
  164.  
  165. ; typedef struct UntokenTable  UntokenTable
  166. ; typedef UntokenTable         *UntokenTablePtr, **UntokenTableHandle
  167. WideChar                 RECORD    0
  168. char16                     ds.w   1        ; offset: $0 (0)
  169. sizeof                     EQU *            ; size:   $2 (2)
  170.                         ENDR
  171.  
  172. ; typedef union WideChar     WideChar
  173. WideCharArr             RECORD    0
  174. size                     ds.w   1        ; offset: $0 (0)
  175. data                     ds.b   10 * WideChar.sizeof ; offset: $2 (2)
  176. sizeof                     EQU *            ; size:   $16 (22)
  177.                         ENDR
  178.  
  179. ; typedef struct WideCharArr  WideCharArr
  180. NumberParts             RECORD    0
  181. version                     ds.w   1        ; offset: $0 (0)
  182. data                     ds.b   31 * WideChar.sizeof ; offset: $2 (2) ;index by [tokLeftQuote..tokMaxSymbols]
  183. pePlus                     ds     WideCharArr ; offset: $40 (64)
  184. peMinus                     ds     WideCharArr ; offset: $56 (86)
  185. peMinusPlus                 ds     WideCharArr ; offset: $6C (108)
  186. altNumTable                 ds     WideCharArr ; offset: $82 (130)
  187. reserved                 ds.b   20        ; offset: $98 (152)
  188. sizeof                     EQU *            ; size:   $AC (172)
  189.                         ENDR
  190.  
  191. ; typedef struct NumberParts  NumberParts
  192. ; typedef NumberParts         *NumberPartsPtr
  193. Itl4Rec                 RECORD    0
  194. flags                     ds.w   1        ; offset: $0 (0)        ;reserved
  195. resourceType             ds.l   1        ; offset: $2 (2)        ;contains 'itl4'
  196. resourceNum                 ds.w   1        ; offset: $6 (6)        ;resource ID
  197. version                     ds.w   1        ; offset: $8 (8)        ;version number
  198. resHeader1                 ds.l   1        ; offset: $A (10)        ;reserved
  199. resHeader2                 ds.l   1        ; offset: $E (14)        ;reserved
  200. numTables                 ds.w   1        ; offset: $12 (18)        ;number of tables, one-based
  201. mapOffset                 ds.l   1        ; offset: $14 (20)        ;offset to table that maps byte to token
  202. strOffset                 ds.l   1        ; offset: $18 (24)        ;offset to routine that copies canonical string
  203. fetchOffset                 ds.l   1        ; offset: $1C (28)        ;offset to routine that gets next byte of character
  204. unTokenOffset             ds.l   1        ; offset: $20 (32)        ;offset to table that maps token to canonical string
  205. defPartsOffset             ds.l   1        ; offset: $24 (36)        ;offset to default number parts table
  206. resOffset6                 ds.l   1        ; offset: $28 (40)        ;reserved
  207. resOffset7                 ds.l   1        ; offset: $2C (44)        ;reserved
  208. resOffset8                 ds.l   1        ; offset: $30 (48)        ;reserved
  209. sizeof                     EQU *            ; size:   $34 (52)
  210.                         ENDR
  211.  
  212. ; typedef struct Itl4Rec     Itl4Rec
  213. ; typedef Itl4Rec             *Itl4Ptr, **Itl4Handle
  214. ; New NItl4Rec for System 7.0: 
  215. NItl4Rec                 RECORD    0
  216. flags                     ds.w   1        ; offset: $0 (0)        ;reserved
  217. resourceType             ds.l   1        ; offset: $2 (2)        ;contains 'itl4'
  218. resourceNum                 ds.w   1        ; offset: $6 (6)        ;resource ID
  219. version                     ds.w   1        ; offset: $8 (8)        ;version number
  220. format                     ds.w   1        ; offset: $A (10)        ;format code
  221. resHeader                 ds.w   1        ; offset: $C (12)        ;reserved
  222. resHeader2                 ds.l   1        ; offset: $E (14)        ;reserved
  223. numTables                 ds.w   1        ; offset: $12 (18)        ;number of tables, one-based
  224. mapOffset                 ds.l   1        ; offset: $14 (20)        ;offset to table that maps byte to token
  225. strOffset                 ds.l   1        ; offset: $18 (24)        ;offset to routine that copies canonical string
  226. fetchOffset                 ds.l   1        ; offset: $1C (28)        ;offset to routine that gets next byte of character
  227. unTokenOffset             ds.l   1        ; offset: $20 (32)        ;offset to table that maps token to canonical string
  228. defPartsOffset             ds.l   1        ; offset: $24 (36)        ;offset to default number parts table
  229. whtSpListOffset             ds.l   1        ; offset: $28 (40)        ;offset to white space code list
  230. resOffset7                 ds.l   1        ; offset: $2C (44)        ;reserved
  231. resOffset8                 ds.l   1        ; offset: $30 (48)        ;reserved
  232. resLength1                 ds.w   1        ; offset: $34 (52)        ;reserved
  233. resLength2                 ds.w   1        ; offset: $36 (54)        ;reserved
  234. resLength3                 ds.w   1        ; offset: $38 (56)        ;reserved
  235. unTokenLength             ds.w   1        ; offset: $3A (58)        ;length of untoken table
  236. defPartsLength             ds.w   1        ; offset: $3C (60)        ;length of default number parts table
  237. whtSpListLength             ds.w   1        ; offset: $3E (62)        ;length of white space code list
  238. resLength7                 ds.w   1        ; offset: $40 (64)        ;reserved
  239. resLength8                 ds.w   1        ; offset: $42 (66)        ;reserved
  240. sizeof                     EQU *            ; size:   $44 (68)
  241.                         ENDR
  242.  
  243. ; typedef struct NItl4Rec     NItl4Rec
  244. ; typedef NItl4Rec             *NItl4Ptr, **NItl4Handle
  245. TableDirectoryRecord     RECORD    0
  246. tableSignature             ds.l   1        ; offset: $0 (0)        ;4 byte long table name 
  247. reserved                 ds.l   1        ; offset: $4 (4)        ;Reserved for internal use 
  248. tableStartOffset         ds.l   1        ; offset: $8 (8)        ;Table start offset in byte
  249. tableSize                 ds.l   1        ; offset: $C (12)        ;Table size in byte
  250. sizeof                     EQU *            ; size:   $10 (16)
  251.                         ENDR
  252.  
  253. ; typedef struct TableDirectoryRecord  TableDirectoryRecord
  254. Itl5Record                 RECORD    0
  255. versionNumber             ds.l   1        ; offset: $0 (0)        ;itl5 resource version number 
  256. numberOfTables             ds.w   1        ; offset: $4 (4)        ;Number of tables it contains 
  257. reserved                 ds.w   3        ; offset: $6 (6)        ;Reserved for internal use 
  258. tableDirectory             ds     TableDirectoryRecord ; offset: $C (12) ;Table directory records 
  259. sizeof                     EQU *            ; size:   $1C (28)
  260.                         ENDR
  261.  
  262. ; typedef struct Itl5Record  Itl5Record
  263. RuleBasedTrslRecord     RECORD    0
  264. sourceType                 ds.w   1        ; offset: $0 (0)        ;Transliterate target type for the LHS of the rule 
  265. targetType                 ds.w   1        ; offset: $2 (2)        ;Transliterate target type for the RHS of the rule 
  266. formatNumber             ds.w   1        ; offset: $4 (4)        ;Transliterate resource format number 
  267. propertyFlag             ds.w   1        ; offset: $6 (6)        ;Transliterate property flags 
  268. numberOfRules             ds.w   1        ; offset: $8 (8)        ;Number of rules following this field 
  269. sizeof                     EQU *            ; size:   $A (10)
  270.                         ENDR
  271.  
  272. ; typedef struct RuleBasedTrslRecord  RuleBasedTrslRecord
  273. ItlcRecord                 RECORD    0
  274. itlcSystem                 ds.w   1        ; offset: $0 (0)        ;default system script
  275. itlcReserved             ds.w   1        ; offset: $2 (2)        ;reserved
  276. itlcFontForce             ds.b   1        ; offset: $4 (4)        ;default font force flag
  277. itlcIntlForce             ds.b   1        ; offset: $5 (5)        ;default intl force flag
  278. itlcOldKybd                 ds.b   1        ; offset: $6 (6)        ;MacPlus intl keybd flag
  279. itlcFlags                 ds.b   1        ; offset: $7 (7)        ;general flags
  280. itlcIconOffset             ds.w   1        ; offset: $8 (8)        ;keyboard icon offset; not used in 7.0
  281. itlcIconSide             ds.b   1        ; offset: $A (10)        ;keyboard icon side; not used in 7.0
  282. itlcIconRsvd             ds.b   1        ; offset: $B (11)        ;rsvd for other icon info
  283. itlcRegionCode             ds.w   1        ; offset: $C (12)        ;preferred verXxx code
  284. itlcSysFlags             ds.w   1        ; offset: $E (14)        ;flags for setting system globals
  285. itlcReserved4             ds.b   32        ; offset: $10 (16)        ;for future use
  286. sizeof                     EQU *            ; size:   $30 (48)
  287.                         ENDR
  288.  
  289. ; typedef struct ItlcRecord  ItlcRecord
  290. ItlbRecord                 RECORD    0
  291. itlbNumber                 ds.w   1        ; offset: $0 (0)        ;itl0 id number
  292. itlbDate                 ds.w   1        ; offset: $2 (2)        ;itl1 id number
  293. itlbSort                 ds.w   1        ; offset: $4 (4)        ;itl2 id number
  294. itlbFlags                 ds.w   1        ; offset: $6 (6)        ;Script flags
  295. itlbToken                 ds.w   1        ; offset: $8 (8)        ;itl4 id number
  296. itlbEncoding             ds.w   1        ; offset: $A (10)        ;itl5 ID # (optional; char encoding)
  297. itlbLang                 ds.w   1        ; offset: $C (12)        ;current language for script 
  298. itlbNumRep                 ds.b   1        ; offset: $E (14)        ;number representation code
  299. itlbDateRep                 ds.b   1        ; offset: $F (15)        ;date representation code 
  300. itlbKeys                 ds.w   1        ; offset: $10 (16)        ;KCHR id number
  301. itlbIcon                 ds.w   1        ; offset: $12 (18)        ;ID # of SICN or kcs#/kcs4/kcs8 suite.
  302. sizeof                     EQU *            ; size:   $14 (20)
  303.                         ENDR
  304.  
  305. ; typedef struct ItlbRecord  ItlbRecord
  306. ; New ItlbExtRecord structure for System 7.0 
  307. ItlbExtRecord             RECORD    0
  308. base                     ds     ItlbRecord ; offset: $0 (0)        ;un-extended ItlbRecord
  309. itlbLocalSize             ds.l   1        ; offset: $14 (20)        ;size of script's local record
  310. itlbMonoFond             ds.w   1        ; offset: $18 (24)        ;default monospace FOND ID
  311. itlbMonoSize             ds.w   1        ; offset: $1A (26)        ;default monospace font size
  312. itlbPrefFond             ds.w   1        ; offset: $1C (28)        ;preferred FOND ID
  313. itlbPrefSize             ds.w   1        ; offset: $1E (30)        ;preferred font size
  314. itlbSmallFond             ds.w   1        ; offset: $20 (32)        ;default small FOND ID
  315. itlbSmallSize             ds.w   1        ; offset: $22 (34)        ;default small font size
  316. itlbSysFond                 ds.w   1        ; offset: $24 (36)        ;default system FOND ID
  317. itlbSysSize                 ds.w   1        ; offset: $26 (38)        ;default system font size
  318. itlbAppFond                 ds.w   1        ; offset: $28 (40)        ;default application FOND ID
  319. itlbAppSize                 ds.w   1        ; offset: $2A (42)        ;default application font size
  320. itlbHelpFond             ds.w   1        ; offset: $2C (44)        ;default Help Mgr FOND ID
  321. itlbHelpSize             ds.w   1        ; offset: $2E (46)        ;default Help Mgr font size
  322. itlbValidStyles             ds.b   1        ; offset: $30 (48)        ;set of valid styles for script
  323. itlbAliasStyle             ds.b   1        ; offset: $31 (49)        ;style (set) to mark aliases
  324. sizeof                     EQU *            ; size:   $32 (50)
  325.                         ENDR
  326.  
  327. ; typedef struct ItlbExtRecord  ItlbExtRecord
  328.     ENDIF ; __INTLRESOURCES__
  329.